"0","samp.1 <- as.factor(sample(species,1,prob = probs, replace =TRUE))
samp.2 <- c(samp.1,as.factor(sample(s.probs$species,1,prob = s.probs$probs, replace =TRUE)))
samp.4 <- c(samp.2,as.factor(sample(s.probs$species,2,prob = s.probs$probs, replace =TRUE)))
samp.8 <- c(samp.4,as.factor(sample(s.probs$species,4,prob = s.probs$probs, replace =TRUE)))
samp.16 <- c(samp.8,as.factor(sample(s.probs$species,8,prob = s.probs$probs, replace =TRUE)))
samp.32 <- c(samp.16,as.factor(sample(s.probs$species,16,prob = s.probs$probs, replace =TRUE)))
samp.64 <- c(samp.32,as.factor(sample(s.probs$species,32,prob = s.probs$probs, replace =TRUE)))
samp.128 <- c(samp.64,as.factor(sample(s.probs$species,64,prob = s.probs$probs, replace =TRUE)))"
